home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / bbs / filelister146.lha / Rexx / Example.trans < prev    next >
Text File  |  1994-09-13  |  796b  |  26 lines
  1. /* this is an example ARexx script for using FileLister                 */
  2.  
  3. options results
  4.  
  5. listenart='NEWFILES'             /* choose command                      */
  6. filelister='BBS:bin/FileLister'  /* path and name of FileLister         */
  7.  
  8. bbsidentify term
  9. bbsline=strip(word(result,4))
  10.  
  11. /* check if FileLister was alreadey started                             */
  12. befehl="host=show('P','FILELISTER."||bbsline||"')"
  13. interpret befehl
  14.  
  15. /* start FileLister and wait for his ARexx port                         */
  16. if ~host then do
  17.   address command 'run '||filelister||' '||bbsline
  18.   address command 'waitforport FILELISTER'||bbsline
  19. end
  20.  
  21. /* execute command dependent of the bbsline                             */
  22. befehl="address 'FILELISTER."||bbsline||"' '"||listenart||"'"
  23. interpret befehl
  24.  
  25. exit
  26.